home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v10.d64 / astro wars (.txt) next >
Commodore BASIC  |  2009-01-19  |  2KB  |  57 lines
  1. 10 PRINT"[147]ASTRO-WARS"
  2. 15 PRINT"STOP THE ENEMY BEFORE THEY REACH THE BOTTOM OF THE SCREEN"
  3. 20 PRINT"Z---LEFT"
  4. 25 PRINT"C---RIGHT"
  5. 30 PRINT"M---FIRE"
  6. 35 PRINT"*GOOD LUCK[146]*"
  7. 40 FORT=1TO3500:NEXT
  8. 45 PRINT"[147]"
  9. 100 POKE36879,8:PRINT"[147]";:CO=30702
  10. 105 S=0:P=8174:W=0:L=1
  11. 110 DIMA(3)
  12. 115 PRINTTAB(10);:FORI=1TO4-L:PRINT"[177] ";:NEXT
  13. 120 FORI=0TO3:A(I)=7702+INT(RND(1)*22):IFI<3THENS(I)=0
  14. 125 NEXT
  15. 130 C1=107:C2=81:C3=115:N=4
  16. 135 W=W+1:IFW>3THENW=1
  17. 140 IFW=2THENC1=95:C2=98:C3=105
  18. 145 IFW=3THENC1=32:C2=88:C3=32
  19. 150 FORI=0TO2STEP2:K=PEEK(197):IFK=64THEN180
  20. 155 POKEP-1,32:POKEP+1,32:P=P+(K=33)-(K=34)
  21. 160 IFP<8165THENP=8165
  22. 165 IFP>8184THENP=8184
  23. 170 POKEP-1+CO,3:POKEP+CO,3:POKEP+1+CO,3
  24. 175 POKEP-1,112:POKEP,113:POKEP+1,110
  25. 180 FORJ=ITOI+1:IFA(J)=0THEN220
  26. 185 POKEA(J)-1,32:POKEA(J),32:POKEA(J)+1,32
  27. 190 A(J)=A(J)+INT(RND(1)*3+21)
  28. 195 IFA(J)>8163THEN305
  29. 200 POKEA(J)-1+C0,5:POKEA(J),C2:POKEA(J)+1,C3
  30. 205 IFW=2THENPOKEA(J)-1+CO,7:POKEA(J)+CO,2:POKEA(J)+1+CO,7
  31. 210 IFW3THENPOKEA(J)+CO,2
  32. 215 POKEA(J)-1,C1:POKEA(J),C2:POKEA(J)+1,C3
  33. 220 NEXTJ
  34. 225 IFK<>36THEN295
  35. 230 POKE36878,12:FORX=255TO200STEP-1:POKE36877,X:NEXT
  36. 235 FORX=P-22TO7702STEP-22:POKEX+CO,7:IFPEEK(X)=32THEN285
  37. 240 POKE36878,15:POKE36877,130
  38. 245 POKE36879,40:POKEX-23+CO,1:POKEX-21+CO,1:POKEX+23+CO,1:POKEX+21+CO,1
  39. 250 POKE36877,200
  40. 255 POKEX-23,127:POKEX-21,255:POKEX,81:POKEX+23,127:POKEX+21+CO,1
  41. 260 FORY=0TO3:IFA(Y)=XTHENPOKEX-1,32:POKEX+1,32:S=S+10*W:A(Y)=0:N=N-1
  42. 265 IFA(Y)<>X-1THEN275
  43. 270 POKEX-1,32:POKEX-2,32:POKEX+1,32:POKEX+2,32:A(Y)=0:S=S+5*W:N=N-1
  44. 275 NEXTY:POKEX-23,32:POKEX-21,32:POKEX+23,32:POKEX+21,32:POKE36879,8
  45. 280 POKE36877,230
  46. 285 POKEX,93:NEXTX:FORX=P-22TO7702STEP-22:POKEX,32:NEXT
  47. 290 POKE36877,0
  48. 295 NEXTI:PRINT"SCORE"S:IFN>0THEN150
  49. 300 GOTO120
  50. 305 FORI=1TO1000:NEXT:L=L+1:IFL<4THENW=0:PRINT"[147]";:GOTO115
  51. 310 POKE198,0:PRINT"[158]  WANT TO TRY AGAIN ?"
  52. 320 GETA$:IFA$=""THEN320
  53. 325 IFA$="Y"THENRUN
  54. 330 IFA$="N"THENPRINT"[147]OK,BYE !"
  55. 335 FORT=1TO2000:NEXT:PRINT"T H A N K - Y O U !"
  56. 340 FORT=1TO5550:NEXT:SYS64802
  57.